home *** CD-ROM | disk | FTP | other *** search
/ Power CD / Power CD ATARI-Rechner Lieben.iso / UTILITY / 64ER_EMU / EMUL_C64 / FUPLOT (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-12-02  |  1.9 KB  |  111 lines
  1. 100 (null)14,14,1
  2. 120 (null)0:(null)
  3. 125 A=160:O=100
  4. 130 E=2E-3:F=1/E
  5. 140 PRINT"[147][215]IE LAUTET DIE [198]UNKTIONSGLEICHUNG?
  6. 150 [159]1,0
  7. 160 [153]"①F(X)=";
  8. 170 [132]1,F$
  9. 180 C$[178]F$
  10. 190 [129]I[178]1[164][195](C$)
  11. 200 [139][202](C$,I,1)[178]"X"[175][202](C$,I,2)[179][177]"XP"[167]C$[178][200](C$,I[171]1)[170]"C"[170][202](C$,I[170]1)
  12. 210 [130]
  13. 220 [224]"DEFFNF(C)="[170]C$
  14. 230 [150][165]F1(C)[178]([165]F(C[170]E)[171][165]F(C))[172]F
  15. 240 [150][165]F2(C)[178]([165]F1(C[170]E)[171][165]F1(C))[172]F
  16. 250 [153]:[153]"①①[X1,X2]=";
  17. 260 [132]1,X1,X2
  18. 270 [153]:[153]"①[Y1,Y2]=";
  19. 280 [132]1,Y1,Y2
  20. 290 [160]1
  21. 300 P[178](Y2[171]Y1)[173]10
  22. 310 Q[178](X2[171]X1)[173]10
  23. 320 W[178](X1[170]X2)[173]2
  24. 330 S[178][171](Y1[170]Y2)[173]2
  25. 340 X%[178][171]320[172]X1[173](X2[171]X1)
  26. 350 Y%[178]200[172]Y2[173](Y2[171]Y1)
  27. 360 [153]:[153]"①F(X)="F$
  28. 370 [153]"①IM RIGHT$NTERVALL ["[196](X1)","[196](X2)"]
  29. 380 PRINT"①①[208]LOTTEN IN:
  30. 390 [153]"①1.❎ LEFT$OCHAUFLOESUNG
  31. 400 PRINT"2.❎ [205]ULTICOLOUR
  32. 410 [153]"①①(null)EICHNEN IN:
  33. 420 PRINT"①3.❎ [200]OCHAUFLOESUNG
  34. 430 [153]"4.❎ (null)ULTICOLOUR
  35. 440 GETM$:IFM$<"1"ORM$>"4"THEN440
  36. 450 PRINT"[147]
  37. 460 [139]M$[178]"1"[176]M$[178]"3"[167][204]1:[137]480
  38. 470 [204]2
  39. 480 [209]1,0,2
  40. 485 [205]A,O
  41. 490 [139]X%[179]0[176]X%[177]319[167]540
  42. 500 [212]1,X%,0[164]X%,199
  43. 510 [139]X%[179]16[167]X%[178]16
  44. 520 [217][196](Y2),0,X%[173]8[171]2
  45. 530 [217][196](Y1),24,X%[173]8[171]2
  46. 540 [139]Y%[179]0[176]Y%[177]199[167]600
  47. 550 [212]1,0,Y%[164]319,Y%
  48. 560 [139]Y%[179][171]8[167]Y%[178][171]8
  49. 570 [217][196](X1),Y%[173]8[170]1,0
  50. 580 [217][196](X2),Y%[173]8[170]1,37
  51. 590 [217]"⇩F(X)",0,0
  52. 600 [151]198,0
  53. 610 [139]M$[177]"2"[167]700
  54. 620 [211]1,([165]F(Q[172]X[170]W)[170]S)[173]P
  55. 630 [161]A$:[139]A$[179][177]""[167]1140
  56. 640 [217]"⇩F'(X)",0,0
  57. 650 [211]2,([165]F1(Q[172]X[170]W)[170]S)[173]P
  58. 660 [161]A$:[139]A$[179][177]""[167]1140
  59. 670 [217]"⇩F''(X)",0,0
  60. 680 [211]3,([165]F2(Q[172]X[170]W)[170]S)[173]P
  61. 690 [137]1140
  62. 700 [225]810
  63. 710 [151]198,0
  64. 720 X[178][171]5
  65. 730 X1[178][171]5
  66. 740 Y1[178]([165]F(Q[172]X1[170]W)[170]S)[173]P
  67. 750 [129]X2[178]X[164]5[169].25
  68. 760 Y2[178]([165]F(Q[172]X2[170]W)[170]S)[173]P
  69. 770 [212]1,A[170]32[172]X1,O[171]20[172]Y1[164]A[170]32[172]X2,O[171]20[172]Y2
  70. 780 X1[178]X2:Y1[178]Y2
  71. 790 [130]
  72. 800 [137]840
  73. 810 X1[178]X1[170].25
  74. 815 [139]X1[177]5[167][226]840
  75. 820 X[178]X1
  76. 830 [226]740
  77. 840 [161]A$:[139]A$[179][177]""[167]1140
  78. 850 [217]"⇩F'(X)",0,0
  79. 860 [225]960
  80. 870 X[178][171]5
  81. 880 X1[178][171]5
  82. 890 Y1[178]([165]F1(Q[172]X1[170]W)[170]S)[173]P
  83. 900 [129]X2[178]X[164]5[169].25
  84. 910 Y2[178]([165]F1(Q[172]X2[170]W)[170]S)[173]P
  85. 920 [212]2,A[170]32[172]X1,O[171]20[172]Y1[164]A[170]32[172]X2,O[171]20[172]Y2
  86. 930 X1[178]X2:Y1[178]Y2
  87. 940 [130]
  88. 950 [137]990
  89. 960 X1[178]X1[170].25
  90. 965 [139]X1[177]5[167][226]990
  91. 970 X[178]X1
  92. 980 [226]890
  93. 990 [161]A$:[139]A$[179][177]""[167]1140
  94. 1000 [217]"⇩F''(X)",0,0
  95. 1010 [225]1110
  96. 1020 X[178][171]5
  97. 1030 X1[178][171]5
  98. 1040 Y1[178]([165]F2(Q[172]X1[170]W)[170]S)[173]P
  99. 1050 [129]X2[178]X[164]5[169].25
  100. 1060 Y2[178]([165]F2(Q[172]X2[170]W)[170]S)[173]P
  101. 1070 [212]3,A[170]32[172]X1,O[171]20[172]Y1[164]A[170]32[172]X2,O[171]20[172]Y2
  102. 1080 X1[178]X2:Y1[178]Y2
  103. 1090 [130]
  104. 1100 [137]1140
  105. 1110 X1[178]X1[170].25
  106. 1115 [139]X1[177]5[167][226]1140
  107. 1120 X[178]X1
  108. 1130 [226]1060
  109. 1140 [161]A$:[139]A$[179][177]" "[167]1140
  110. 1150 [138]
  111.